home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
DELPHI32
/
SYS_TOOL
/
BBSYSINF
/
SYSINFO.TXT
< prev
Wrap
Text File
|
1996-04-10
|
3KB
|
92 lines
TSYSINFO 2.0 written by Brent Boswell - 1996
------------
TSysInfo 2.0 is a non visual component written for Delphi 2.0 that
gets details about your computer. eg. Registered Organisation and
Owner, etc..
It has 8 properties that you are able to see at design time in the
Object Inspector :-
1. Organisation - string
2. Owner - string
3. CPU - string
4. OperatingSystem - string
5. WinVersion - string
6. Build - string
7. TotalMemory - string
8. DriveC - string
To use TSysInfo drop onto a form at design time. Assign any TLabel
Caption to any of the above properties, or any other object that has
a string value.
To install TSysInfo copy the enclosed files into a common VCL
directory. In Delphi use the Install option on the Components menu
to install TSysInfo into your component library. By default
TSysInfo will be installed into the Samples page. However you are
free to move it once it's installed or you can modify the register
procedure in the code.
Included with this Component is another Unit containing another
Class object. This Class Object is called TBBRegIniFile. It has
all the properties and functions of TRegIniFile, with one exception,
in that you have to specify an additional parameter, being a Key for
searching in the Registry.
I don't know if I'm just not able to use the TRegIniFile properly,
but I could only get it to look in HKEY_CURRENT_USER, which to me is
pretty pointless if you wish to have full acess to the registry.
With TBBRegIniFile you specify the Key in which you wish to look.
eg.
var
RegIni : TBBRegIniFile;
TestString : string;
begin
RegIni := TBBRegIniFile.Create('\SOFTWARE\Microsoft\Windows', HKEY_LOCAL_MACHINE');
TestString := RegIni.ReadString('CurrentVersion', 'ProductName', 'Failure');
RegIni.Free;
end;
The above piece of code will look in HKEY_LOCAL_MACHINE in the
subkey '\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductName' and
assign the value in 'ProductName' to TestString. If it doesn't find
anything or that subkey doesn't exist, TestString gets assigned
'Failure'. Remember when looking in the registry all the keys and
subkeys are CASE SENSITIVE.
TSysInfo has ONLY been tested on Windows 95 as I don't have a NT Box
currently available to me. I am in the process of building up a
machine on which to run Windows NT Server.
TSysInfo including TBBRegIniFile is released as FREEWARE and you are
free to distribute and modify the code in any way you feel. I will
NOT however be held responsible for any damages or mishaps that may
occur out of the use of this component.
If you like my component or modify it can you send me some email at
the email address below. Also could you send me a post card of your
Town or City at the snail mail address below. I'd just like to hear
from others around the world. I will try to reply to any email or
snail mail that I receive. Thanks.
email :
b.boswell.saf0901@oasis.icl.co.uk
snail mail :
Brent Boswell
14 Dawn View
Cleland
Pietermaritzburg
Natal
3201
South Africa
Thanks
Brent Boswell